Inuit aqqi

NAXT1_raw <- 
  statgl_url("NAXT1", lang = language) %>% 
  statgl_fetch(
    surname   = px_all(),
    rank      = 0,
    time      = px_top(),
    .col_code = TRUE
  ) %>% 
  as_tibble()
  
NAXT1 <- 
  NAXT1_raw %>% 
  filter(value >= 1000) %>% 
  arrange(desc(value)) %>% 
  mutate(surname = surname %>% fct_reorder(value, .fun = sum, .desc = TRUE)) %>% 
  spread(rank, value)

col <- paste(colnames(NAXT1)[3], "> 1000")
  
NAXT1 %>% 
  select(-time) %>% 
  statgl_table(col.names = c(" ", col)) %>% 
  pack_rows(index = NAXT1[["time"]] %>% table())Copy Code

helper <- 
  statgl_url("NAXT5", lang = language) %>% 
  statgl_fetch(
    unit         = 0,
    sex          = px_all(),
    time         = px_top(1),
    "first name" = px_all(),
    .col_code    = FALSE
  ) %>% 
  as_tibble()

NAXT5_raw <- 
  statgl_url("NAXT5", lang = language) %>% 
  statgl_fetch(
    unit         = 0,
    sex          = px_all(),
    time         = px_top(1),
    "first name" = px_all(),
    .col_code    = TRUE
  ) %>% 
  as_tibble()

NAXT5 <- 
  NAXT5_raw %>% 
  drop_na() %>% 
  arrange(sex, desc(value)) %>% 
  filter(value >= 350) %>% 
  arrange(sex) %>% 
  mutate(`first name` = `first name` %>% fct_inorder()) %>% 
  spread(unit, value)

col <- paste(NAXT5_raw[["unit"]][1], "> 350")

NAXT5 %>% 
  select(-sex, -time) %>% 
  rename(" " = 1) %>% 
  statgl_table(col.names = c(" ", col)) %>% 
  pack_rows(index = NAXT5[["time"]] %>% table()) %>% 
  pack_rows(index = NAXT5[["sex"]] %>% table())Copy Code

LS0tDQpwYXJhbXM6DQogIGxhbmc6ICJkYSINCm91dHB1dDoNCiAgc3RhdGdsOjpzdGF0Z2xfcmVwb3J0Og0KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUNCiAgICBjb2RlX2ZvbGRpbmc6IGhpZGUNCmVkaXRvcl9vcHRpb25zOiANCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGNvbnNvbGUNCi0tLQ0KDQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0NCg0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KA0KCWVjaG8gICAgPSBUUlVFLA0KCW1lc3NhZ2UgPSBGQUxTRSwNCgl3YXJuaW5nID0gRkFMU0UsDQoJY2xhc3Mub3V0cHV0ID0gInNjcm9sbC0xMDAiDQopDQoNCnsNCmxpYnJhcnkoInRpZHl2ZXJzZSIpDQpsaWJyYXJ5KCJzdGF0Z2wiKQ0KbGlicmFyeSgia2FibGVFeHRyYSIpDQpsaWJyYXJ5KCJsdWJyaWRhdGUiKQ0KbGlicmFyeSgieWFtbCIpDQp9DQoNCnsgIA0KbGFuZ3VhZ2UgIDwtIHBhcmFtcyRsYW5nDQpvcHRpb24gICAgPC0gcGFzdGUwKCI/bGFuZz0iLCBsYW5ndWFnZSwgIiZzZWxlY3QiKQ0KbG9nbyAgICAgIDwtIHBhc3RlMChnZXR3ZCgpLCIvYWRkL2xvZ28uZ2lmIikNCnR4dCAgICAgICA8LSByZWFkX3lhbWwocGFzdGUwKGdldHdkKCksICIvYWRkL3R4dC55bWwiKSwgZmlsZUVuY29kaW5nID0gIklTTy04ODU5LTEiKQ0Kc291cmNlICAgIDwtIHR4dCRzb3VyY2VbbGFuZ3VhZ2VdICU+JSB1bmxpc3QoKQ0KfQ0KDQp4YXJpbmdhbkV4dHJhOjp1c2VfY2xpcGJvYXJkKCkNCg0KYGBgDQoNCmBgYHtjc3MsIGVjaG8gPSBGQUxTRX0NCg0KLmFjY29yZGlvbiB7DQogIGJhY2tncm91bmQtY29sb3I6ICM5MTk5MDA7DQogIGNvbG9yOiB3aGl0ZTsNCiAgY3Vyc29yOiBwb2ludGVyOw0KICBwYWRkaW5nOiAxOHB4Ow0KICB3aWR0aDogMTAwJTsNCiAgYm9yZGVyOiBub25lOw0KICBib3JkZXItcmFkaXVzOiA1cHg7DQogIHRleHQtYWxpZ246IGxlZnQ7DQogIG91dGxpbmU6IG5vbmU7DQogIGZvbnQtc2l6ZTogMTVweDsNCiAgdHJhbnNpdGlvbjogMC40czsNCn0NCg0KLmFjdGl2ZSwgLmFjY29yZGlvbjpob3ZlciB7DQogIGJhY2tncm91bmQtY29sb3I6ICNmOTcyNDI7DQp9DQoNCi5hY2NvcmRpb246YWZ0ZXIgew0KICBjb250ZW50OiAnXDAwMkInOw0KICBjb2xvcjogIzc3NzsNCiAgZm9udC13ZWlnaHQ6IGJvbGQ7DQogIGZsb2F0OiByaWdodDsNCiAgbWFyZ2luLWxlZnQ6IDVweDsNCn0NCg0KLmFjdGl2ZTphZnRlciB7DQogIGNvbnRlbnQ6ICJcMjIxMiI7DQp9DQoNCi5wYW5lbCB7DQogIHBhZGRpbmc6IDBweCA1cHggMHB4IDVweDsNCiAgYmFja2dyb3VuZC1jb2xvcjogd2hpdGU7DQogIG1heC1oZWlnaHQ6IDA7DQogIG92ZXJmbG93OiBoaWRkZW47DQogIHRyYW5zaXRpb246IG1heC1oZWlnaHQgMC4ycyBlYXNlLW91dDsNCn0NCg0KZGV0YWlscyB7DQogIHdpZHRoOiAxMDAlOw0KfQ0KDQpkZXRhaWxzID4gc3VtbWFyeSB7DQogIHBhZGRpbmc6IDRweCAxMnB4Ow0KICB3aWR0aDogMTAwJTsNCiAgYmFja2dyb3VuZC1jb2xvcjogIzAwN2Y5OTsNCiAgYm9yZGVyOiBzb2xpZDsNCiAgYm9yZGVyLWNvbG9yOiB3aGl0ZTsNCiAgYm9yZGVyLXJhZGl1czogNXB4Ow0KICBjdXJzb3I6IHBvaW50ZXI7DQogIGZvbnQtc2l6ZTogMTVweDsNCiAgY29sb3I6IHdoaXRlOw0KfQ0KDQpkZXRhaWxzW29wZW5dID4gc3VtbWFyeSB7DQogIGJhY2tncm91bmQtY29sb3I6ICNmYWE0MWE7DQp9DQoNCg0KLnRpdGxlIHsNCiAgY29sb3I6ICMxYjU0NjM7DQogIGZvbnQtc2l6ZTogMzZweDsNCn0NCg0KDQoucGVyc29uZXIgew0KICBib3gtc2hhZG93OiAzcHggM3B4IDRweCBibGFjazsNCiAgYmFja2dyb3VuZDogIzAwNDQ1OTsNCiAgcGFkZGluZy1yaWdodDogMTVweDsNCiAgcGFkZGluZy1sZWZ0OiAxNnB4Ow0KICBwYWRkaW5nLXRvcDogMC4xcHg7DQogIHBhZGRpbmctYm90dG9tOiAxcHg7DQogIGZvbnQtc2l6ZTogMTFweDsNCiAgY29sb3I6IHdoaXRlOw0KICB2ZXJ0aWNhbC1hbGlnbjogbWlkZGxlOw0KfQ0KDQouw7hrb25vbWkgew0KICBib3gtc2hhZG93OiAzcHggM3B4IDRweCBibGFjazsNCiAgYmFja2dyb3VuZDogIzAwN0Y5OTsNCiAgcGFkZGluZy1yaWdodDogMTVweDsNCiAgcGFkZGluZy1sZWZ0OiAxNnB4Ow0KICBwYWRkaW5nLXRvcDogMXB4Ow0KICBwYWRkaW5nLWJvdHRvbTogMC4xcHg7DQogIGZvbnQtc2l6ZTogMTFweDsNCiAgY29sb3I6IHdoaXRlOw0KICB2ZXJ0aWNhbC1hbGlnbjogbWlkZGxlOw0KfQ0KDQoudHbDpnJnw6VlbmRlIHsNCiAgYm94LXNoYWRvdzogM3B4IDNweCA0cHggYmxhY2s7DQogIGJhY2tncm91bmQ6ICNmYWE0MWE7DQogIHBhZGRpbmctcmlnaHQ6IDE1cHg7DQogIHBhZGRpbmctbGVmdDogMTZweDsNCiAgcGFkZGluZy10b3A6IDAuMXB4Ow0KICBwYWRkaW5nLWJvdHRvbTogMXB4Ow0KICBmb250LXNpemU6IDExcHg7DQogIGNvbG9yOiB3aGl0ZTsNCiAgdmVydGljYWwtYWxpZ246IG1pZGRsZTsNCn0NCg0KLmNvbnRhaW5lciB7DQogIHdpZHRoOiBpbmhlcml0Ow0KfQ0KDQouc2Nyb2xsLTEwMCB7DQogIG1heC1oZWlnaHQ6IDEwMDsNCiAgb3ZlcmZsb3cteTogYXV0bzsNCiAgYmFja2dyb3VuZC1jb2xvcjogaW5oZXJpdDsNCn0NCg0KDQpwcmUgew0KICBtYXgtaGVpZ2h0OiAzMDBweDsNCiAgb3ZlcmZsb3cteTogYXV0bzsNCn0NCg0KcHJlW2NsYXNzXSB7DQogIG1heC1oZWlnaHQ6IDMwMHB4Ow0KfQ0KDQpgYGANCg0KPGJyPg0KPGJyPg0KDQo8Y2VudGVyPg0KDQotLS0NCiANCiMgW2ByIHR4dCROQVYkdGl0bGVbbGFuZ3VhZ2VdYF17LnRpdGxlfQ0KIA0KLS0tDQo8L2NlbnRlcj4NCg0KPGRldGFpbHMgb3Blbj4gPHN1bW1hcnk+IGByIHR4dCROQVYkdGl0bGVbbGFuZ3VhZ2VdYCA8L3N1bW1hcnk+IA0KPGJyPg0KPGJ1dHRvbiBjbGFzcz0iYWNjb3JkaW9uIj4gYHIgcGFzdGUwKCIqKlRhYmVsIDE6ICoqIiwgc3RhdGdsX21ldGEoc3RhdGdsX3VybCgiTkFYVDEiLCBsYW5nID0gbGFuZ3VhZ2UpKVsxXSR0aXRsZSkgYCA8L2J1dHRvbj4gPGRpdiBjbGFzcz0icGFuZWwiPg0KYGBge3IgTkFYVDF9DQoNCk5BWFQxX3JhdyA8LSANCiAgc3RhdGdsX3VybCgiTkFYVDEiLCBsYW5nID0gbGFuZ3VhZ2UpICU+JSANCiAgc3RhdGdsX2ZldGNoKA0KICAgIHN1cm5hbWUgICA9IHB4X2FsbCgpLA0KICAgIHJhbmsgICAgICA9IDAsDQogICAgdGltZSAgICAgID0gcHhfdG9wKCksDQogICAgLmNvbF9jb2RlID0gVFJVRQ0KICApICU+JSANCiAgYXNfdGliYmxlKCkNCiAgDQpOQVhUMSA8LSANCiAgTkFYVDFfcmF3ICU+JSANCiAgZmlsdGVyKHZhbHVlID49IDEwMDApICU+JSANCiAgYXJyYW5nZShkZXNjKHZhbHVlKSkgJT4lIA0KICBtdXRhdGUoc3VybmFtZSA9IHN1cm5hbWUgJT4lIGZjdF9yZW9yZGVyKHZhbHVlLCAuZnVuID0gc3VtLCAuZGVzYyA9IFRSVUUpKSAlPiUgDQogIHNwcmVhZChyYW5rLCB2YWx1ZSkNCg0KY29sIDwtIHBhc3RlKGNvbG5hbWVzKE5BWFQxKVszXSwgIj4gMTAwMCIpDQogIA0KTkFYVDEgJT4lIA0KICBzZWxlY3QoLXRpbWUpICU+JSANCiAgc3RhdGdsX3RhYmxlKGNvbC5uYW1lcyA9IGMoIiAiLCBjb2wpKSAlPiUgDQogIHBhY2tfcm93cyhpbmRleCA9IE5BWFQxW1sidGltZSJdXSAlPiUgdGFibGUoKSkNCg0KDQpgYGANCjxicj4NClshW10oYHIgbG9nb2Ape3dpZHRoPTQwfWByIHBhc3RlKHNvdXJjZSwgIk5SWDAxIilgXShgciBwYXN0ZTAoImh0dHBzOi8vYmFuay5zdGF0LmdsOjQ0My9zcS85MDRkNzg3ZS1lYmNiLTQxMDYtYmIxNy0yYmU1OGUzZjgwNzgiLCBvcHRpb24pYCl7dGFyZ2V0PSJfYmxhbmsifQ0KPC9kaXY+IA0KDQoNCjxidXR0b24gY2xhc3M9ImFjY29yZGlvbiI+IGByIHBhc3RlMCgiKipUYWJlbCAyOiAqKiIsIHN0YXRnbF9tZXRhKHN0YXRnbF91cmwoIk5BWFQ1IiwgbGFuZyA9IGxhbmd1YWdlKSlbMV0kdGl0bGUpIGAgPC9idXR0b24+IDxkaXYgY2xhc3M9InBhbmVsIj4NCg0KYGBge3IgTkFYVDV9DQoNCmhlbHBlciA8LSANCiAgc3RhdGdsX3VybCgiTkFYVDUiLCBsYW5nID0gbGFuZ3VhZ2UpICU+JSANCiAgc3RhdGdsX2ZldGNoKA0KICAgIHVuaXQgICAgICAgICA9IDAsDQogICAgc2V4ICAgICAgICAgID0gcHhfYWxsKCksDQogICAgdGltZSAgICAgICAgID0gcHhfdG9wKDEpLA0KICAgICJmaXJzdCBuYW1lIiA9IHB4X2FsbCgpLA0KICAgIC5jb2xfY29kZSAgICA9IEZBTFNFDQogICkgJT4lIA0KICBhc190aWJibGUoKQ0KDQpOQVhUNV9yYXcgPC0gDQogIHN0YXRnbF91cmwoIk5BWFQ1IiwgbGFuZyA9IGxhbmd1YWdlKSAlPiUgDQogIHN0YXRnbF9mZXRjaCgNCiAgICB1bml0ICAgICAgICAgPSAwLA0KICAgIHNleCAgICAgICAgICA9IHB4X2FsbCgpLA0KICAgIHRpbWUgICAgICAgICA9IHB4X3RvcCgxKSwNCiAgICAiZmlyc3QgbmFtZSIgPSBweF9hbGwoKSwNCiAgICAuY29sX2NvZGUgICAgPSBUUlVFDQogICkgJT4lIA0KICBhc190aWJibGUoKQ0KDQpOQVhUNSA8LSANCiAgTkFYVDVfcmF3ICU+JSANCiAgZHJvcF9uYSgpICU+JSANCiAgYXJyYW5nZShzZXgsIGRlc2ModmFsdWUpKSAlPiUgDQogIGZpbHRlcih2YWx1ZSA+PSAzNTApICU+JSANCiAgYXJyYW5nZShzZXgpICU+JSANCiAgbXV0YXRlKGBmaXJzdCBuYW1lYCA9IGBmaXJzdCBuYW1lYCAlPiUgZmN0X2lub3JkZXIoKSkgJT4lIA0KICBzcHJlYWQodW5pdCwgdmFsdWUpDQoNCmNvbCA8LSBwYXN0ZShOQVhUNV9yYXdbWyJ1bml0Il1dWzFdLCAiPiAzNTAiKQ0KDQpOQVhUNSAlPiUgDQogIHNlbGVjdCgtc2V4LCAtdGltZSkgJT4lIA0KICByZW5hbWUoIiAiID0gMSkgJT4lIA0KICBzdGF0Z2xfdGFibGUoY29sLm5hbWVzID0gYygiICIsIGNvbCkpICU+JSANCiAgcGFja19yb3dzKGluZGV4ID0gTkFYVDVbWyJ0aW1lIl1dICU+JSB0YWJsZSgpKSAlPiUgDQogIHBhY2tfcm93cyhpbmRleCA9IE5BWFQ1W1sic2V4Il1dICU+JSB0YWJsZSgpKQ0KDQoNCmBgYA0KPGJyPg0KWyFbXShgciBsb2dvYCl7d2lkdGg9NDB9YHIgcGFzdGUoc291cmNlLCAiTkFYVDUiKWBdKGByIHBhc3RlMCgiaHR0cHM6Ly9iYW5rLnN0YXQuZ2w6NDQzL3NxL2NmYjkwMTcyLWI5NDctNDM2ZC04YTliLTdiOTVmM2RlYmZlYyIsIG9wdGlvbilgKXt0YXJnZXQ9Il9ibGFuayJ9DQo8L2Rpdj4gDQoNCjwvZGV0YWlscz4NCg0KDQoNCjxociBzdHlsZT0iYm9yZGVyOjFweCByaWRnZSBsaWdodGdyYXkiPiA8L2hyPg0KPGNlbnRlcj4gPHNwYW4gc3R5bGU9J2NvbG9yOiNEM0QzRDM7IGZvbnQtc2l6ZTo5MCU7Jz4gYHIgcGFzdGUodHh0JHVwZGF0ZVtsYW5ndWFnZV0sIGZvcm1hdChTeXMuRGF0ZSgpLCAiJWQuICVCICVZIikpYCA8L3NwYW4+IDwvY2VudGVyPg0KDQoNCjxzY3JpcHQ+DQp2YXIgYWNjID0gZG9jdW1lbnQuZ2V0RWxlbWVudHNCeUNsYXNzTmFtZSgiYWNjb3JkaW9uIik7DQp2YXIgaTsNCg0KZm9yIChpID0gMDsgaSA8IGFjYy5sZW5ndGg7IGkrKykgew0KICBhY2NbaV0uYWRkRXZlbnRMaXN0ZW5lcigiY2xpY2siLCBmdW5jdGlvbigpIHsNCiAgICB0aGlzLmNsYXNzTGlzdC50b2dnbGUoImFjdGl2ZSIpOw0KICAgIHZhciBwYW5lbCA9IHRoaXMubmV4dEVsZW1lbnRTaWJsaW5nOw0KICAgIGlmIChwYW5lbC5zdHlsZS5tYXhIZWlnaHQpIHsNCiAgICAgIHBhbmVsLnN0eWxlLm1heEhlaWdodCA9IG51bGw7DQogICAgfSBlbHNlIHsNCiAgICAgIHBhbmVsLnN0eWxlLm1heEhlaWdodCA9IHBhbmVsLnNjcm9sbEhlaWdodCArICJweCI7DQogICAgfSANCiAgfSk7DQp9DQo8L3NjcmlwdD4NCg0KDQo=